?- prove([a],a).         Yes
?- prove([neg a],a).     No
?- prove([neg a,b],a).   No
?- prove([neg a,a],a).   Yes
?- prove([b impl a],a).  No
?- prove([b or a],a).    No
?- prove([b or a],a or b).                 Yes
?- prove([b or a and b],a or b).           Yes
?- prove([b or a and b],a or neg b).       No
?- prove([b or a and b,a or b],a or b).    Yes
?- prove([b or a and b,a or b,c],a or b).  Yes
?- prove([(a),(a impl b),(c),(neg c or d),((b and d) impl e)],(e and a)).   Yes
?- prove([((p impl q) impl p)],p).         Yes
?- prove([((p impl q) impl p)],q).         No
?- prove([((a or b) and c) impl (a or b),g],g).  Yes
?- prove([((a or b) and c impl a),b],a).         No
?- prove([(d or e),(neg e or p)],(d or p)).      Yes
?- prove([(d or e),(neg e or p)],(d or f)).      No
?- prove([neg (a impl b),neg a],b).              Yes   keine Umwandlung
?- prove([c,s,w,d or e,e impl neg p], c and s and w and (d or p)).   No?      linksassoziativ
?- prove([c,s,w,d or e,e impl b], c and s and w and d and p). No?


